home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 4 / BBS in a Box - Macintosh - Volume IV (January 1992) (BBS in a Box).iso / Files / Game / C / CORE! 1.1.CPT / Core! 1.1 / Battle Programs / Standard / vampire < prev    next >
Encoding:
Text File  |  1989-07-18  |  993 b   |  47 lines  |  [TEXT/MARS]
  1. ;
  2. ; Vampire -- seek out the enemy, drain the
  3. ; life out of him, and then erase him in his
  4. ; weakened condition
  5. ;
  6.  
  7. nprc  dat 0,500  ;The number of dummy processes
  8. ;                 that the enemy will be forced
  9. ;                 to make.
  10. spin  spl 0,0
  11. trap  djn 0,nprc
  12. ;
  13.       mov null,trap
  14.       mov nprc,spin
  15. null  jmp 0,0
  16.  
  17. fang  jmp @1,0
  18. bite  dat 0,1000
  19.  
  20.       dat 0,0
  21.       dat 0,0
  22.       dat 0,0
  23.       dat 0,0
  24.       dat 0,0
  25.       dat 0,0
  26.       dat 0,0
  27.  
  28. start mov #(spin-bite),@bite
  29.       sub bite,@bite  ;adjust address of fang
  30.       sub #1,bite
  31.       mov fang,@bite
  32.       add #7,bite
  33. ;
  34.       cmp #500,nprc   ;have we caught anybody?
  35.       jmp caught,0    ;yes!
  36.       jmp start,0     ;nope.
  37. ;
  38. ; the enemy has been caught, and is currently
  39. ; being drained of energy.  So start the
  40. ; process of erasing the world.
  41. ;
  42. caught mov #0,bite  ;start near here.
  43. erase mov bite,@bite ;erase everything and
  44.       sub #1,bite    ;hope he dies before we
  45.       jmp erase,0    ;kill ourselves
  46.  
  47. end   start